﻿
Imports BusinessLogicLayer
Imports BE = BusinessEntities

Partial Class Encuestas_MantenimientoEncuestas
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        EnlazarGridView()
    End Sub
    Sub EnlazarGridView()
        'Instanciamos la clase
        Dim capanegocios As New EncuestaBL

        gvencuestas.DataSource = capanegocios.ListarEncuestas
        gvencuestas.DataBind()

        'Liberamos recursos
        capanegocios = Nothing
    End Sub

    Sub Capturarencuesta(ByVal src As Object, ByVal args As CommandEventArgs)
        'Instanciamos la clase
        Dim capanegocios As New EncuestaBL
        Dim objeto As New BE.EncuestaBE
        objeto.codigo = args.CommandName

        Dim resultado As Boolean = capanegocios.EliminarEncuesta(objeto)

        If resultado = True Then
            'Refrescamos los datos
            capanegocios.ListarEncuestas()
        Else
            lblresultado.Text = "La encuesta no pudo ser eliminada"

        End If
        'Liberamos recursos
        capanegocios = Nothing
    End Sub

    Protected Sub gvencuestas_PageIndexChanging(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewPageEventArgs) Handles gvencuestas.PageIndexChanging
        gvencuestas.PageIndex = e.NewPageIndex
        EnlazarGridView()
    End Sub
End Class

